home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ IUnknown File Description 1.xpl < prev    next >
Text File  |  2002-11-22  |  1KB  |  38 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="1"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Files&Folders\Unknown Files"
  5. "NAME"="Unknown File Description"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Description:"
  8. "DESCRIPTION 1"="This plug-in lets you change the description of unknown files. By default, the extension and then 'File' is used (examples are 'LOG File', 'DAT File' etc.). Here you can change this to something more consistant."
  9. "DESCRIPTION 2"="Type in a description, such as 'Unknown File', and all unknown files will use this description. To revert back to the default behaviour, just clear the field."
  10. "DESCRIPTION 3"="You may need to restart your computer for the changes to take effect."
  11. "VERSION"="1.19"
  12. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  13. "CONTACTURL"="http://www.xteq.com/"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"=""
  16.  
  17. P1="HKCR\Unknown\@"
  18.  
  19. SUB Plugin_Initialize
  20.  s=RegReadValue(P1)
  21.  Call SetUIElement(1, s)
  22. END SUB
  23.  
  24. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  25.  s=GetUIELement(1)
  26.  if Len(s)<=0 then
  27.   b=RegReadValue(P1)
  28.   if IsEmpty(b)=true then
  29.    Call RegDeleteValue(P1)
  30.   end if
  31.  else
  32.   Call RegWriteValue(P1,s,1)
  33.  end if
  34. END SUB
  35.  
  36. SUB Plugin_Terminate
  37. END SUB
  38.